home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / cisco / account.shar / aggday.awk < prev    next >
Encoding:
AWK Script  |  1992-08-07  |  823 b   |  67 lines
  1. # 1.1 90/04/12 dfk@cwi.nl
  2.  
  3. BEGIN {
  4.     first = 1;
  5.     pct = .5;
  6. }
  7.  
  8. /^SAMPLE/ {
  9.     if (first)
  10.         first = 0;
  11.     else 
  12.     {
  13.         if ($4 != day)
  14.         {
  15.             print sampl;
  16.             printf "\n";
  17.  
  18.             thresh = sb*pct/100;
  19.             for (i in bytes)
  20.             {
  21.                 if (bytes[i]>thresh)
  22.                 {
  23.                     printf "%-33.33s ", i;
  24.                     printf "%10d ", packets[i];
  25.                     printf "%15d\n", bytes[i];
  26.                 } 
  27.                 packets[i] = 0;
  28.                 bytes[i] = 0;
  29.             }
  30.             printf "\n\n";
  31.             sb = 0;
  32.         }
  33.     }
  34.     sampl = $0;
  35.     day = $4;
  36. }
  37.  
  38. /[0-9]*\.[0-9]*\./ {
  39.  
  40.     bytes[$1 " " $2] += $4;
  41.     packets[$1 " " $2] += $3;
  42.     sb += $4;
  43. }
  44.  
  45. END {
  46.     if (first)
  47.         first = 0;
  48.     else 
  49.     {
  50.         if ($4 != day)
  51.         {
  52.             print sampl;
  53.             printf "\n";
  54.             for (i in bytes)
  55.             {
  56.                 if (packets[i]>thresh)
  57.                 {
  58.                     printf "%-33.33s ", i;
  59.                     printf "%10d ", packets[i];
  60.                     printf "%15d\n", bytes[i];
  61.                 } 
  62.             }
  63.             printf "\n\n"; 
  64.         } 
  65.     } 
  66. }
  67.